Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i <5 do

  Begin

      if I mod 2 = 0 then Write(‘TIN HOC’);

      i:=i+1;

End;

Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i <5 do

Begin

       if I mod 3 = 0 then Write(‘TIN HOC’);

i:=i+1;

End;

Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i <5 do

   Begin

if I mod 3 = 1 then Write(‘TIN HOC’);

i:=i+1;

 End;

Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i < 5 do

   Begin

if I mod 2 = 1 then Write(‘TIN HOC’);

i:=i+1;

 End;

Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)

k := 1 ;

for i := 2 to N do

   if a[i] > a[k] then k := i;

A. Tìm phần tử nhỏ nhất trong mảng

B. Tìm phần tử lớn nhất trong mảng

C. Tìm chỉ số của phần tử lớn nhất trong mảng

D. Tìm chỉ số của phần tử nhỏ nhất trong mảng

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)

k := 1 ;

for i := 2 to N do

   if a[i] < a[k] then k := i;

A. Tìm phần tử nhỏ nhất trong mảng

B. Tìm phần tử lớn nhất trong mảng

C. Tìm chỉ số của phần tử lớn nhất trong mảng

D. Tìm chỉ số của phần tử nhỏ nhất trong mảng

Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau

Câu a)

          i := -1;

          j:= 20;

For   k:= 1 to 5 do

          If  k   mod   2  = 0   then    i:= i + 1;

j := j + i;

Writeln(i,‘   ’,j);

Câu b)

n := 127;

m := 0;

While  n < >0  do

Begin

                   m := m * 10 + n  mod  10;

                   n := n  div  10;

end;

writeln(m);